################################################################
#US Military Intervention and Presidential Communication Frames#
#                      Kerry Chavez                            #
################################################################

##load R workspace titled "framil"

#Figure A1. Dictionary Categories vs Unmatched Tokens
plot(as.matrix(framedict_results)[,8],rowSums(as.matrix(framedict_results)[,1:7]), ylab="Dictionary Categories", xlab="Unmatched")

#Figure 1. Justification Frames Over Time
par(mfrow=c(3,2), mar=c(2,5,2,1), las=1, bty="n", col="salmon")
plot(data$year,data$strategic, type="h", ylab="Strategic", ylim=c(0,80))
plot(data$year,data$economic, type="h", ylab="Economic", ylim=c(0,80))
plot(data$year,data$humanitarian, type="h", ylab="Humanitarian", ylim=c(0,80))
plot(data$year,data$territorial, type="h", ylab="Territorial", ylim=c(0,80))
plot(data$year,data$terrorism, type="h", ylab="Counterterror", ylim=c(0,80))
plot(data$year,data$proliferation, type="h", ylab="Proliferation")

#Figure A2. Rhetorical Frames Over Time
par(mfrow=c(3,2), mar=c(2,5,2,1), las=1, bty="n", col="salmon")
plot(data$year,data$alliance, type="h", ylab="Multilateralism")
plot(data$year,data$exceptionalism, type="h", ylab="Exceptionalism", ylim=c(0,100))
plot(data$year,data$imminence, type="h", ylab="Imminence", ylim=c(0,100))